100 CALL POKE(50688,165,8,6,10):CALL POKE(49156,198,0):CALL KEY1(A,B):A=A-30
110 IF B=0 THEN CALL POKE(258,0,0):GOTO 100 ELSE CALL POKE(258,A,147):GOTO 100